home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / FUNCTION.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  351 b   |  16 lines
  1. PROGRAM example_function;
  2.  
  3. VAR dogs,cats,feet : INTEGER;
  4.  
  5. FUNCTION quad_of_sum(number1,number2 : INTEGER) : INTEGER;
  6. BEGIN
  7.   quad_of_sum := 4*(number1 + number2);
  8. END;
  9.  
  10. BEGIN  (* main program *)
  11.   dogs := 4;
  12.   cats := 3;
  13.   feet := quad_of_sum(dogs,cats);
  14.   WRITELN(' There are a total of',feet:3,' paws.');
  15. END.  (* of main program *)
  16.